home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Curves.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  7.7 KB  |  29 lines  |  [TEXT/.Ob4]

  1. ¯6 
  2. ˇ–@ÿ≥3Q –CurvesÇéº<lÇ∂E∫ZÎÜÉNewlMakeLine<MakeCircleºMakeEllipseÑÖ;‚ÜDisplay6e∏uFiles$Ù…/Printer2ˆÊÃOberon2ˆßæTexts;‚WêFonts;ı‰ƒViewers3Pé¥Graphics2ılxModules3PÕ¬GraphicFramesÜ ˇÓ˛≠ˇˇ˙i
  3. ¸Å¸i¸M¸˚Â˚À
  4. ˙€
  5. ˙ ˙Ç
  6. ˙~
  7. ˙y˙[˙U˙O
  8. ˙I˙C    ˙= ˙7˙1áNewCurvesà|¶øaˇÏêî!ˇ∞;·8êA;√;§;Ö;f8~8ù8º8€8‡99 ÄBˇ‘HÄAÄ Ä!|¶ªaˇÏO‡ |¶æ°ˇ‘êî!ˇà;·8êA;√;§;Ö;f;G;(;    |ô–@‰l~¸“|z»|up/ˇˇ@˙{ ú∏@¸H8~8ù8º8€8‡ÄBˇ‘HÄA3ú,ï@‰ ~µ C‡|ö»~µ"{¬C‡ˇ∏C‡h~€ |π–|µp/ˇˇ@˙ú“õ∞@¸H8~8ù8º8€8‡ÄBˇ‘Kˇˇ)ÄA3{,ï@‰ ~µ“C‡|Ÿ–~µ2ú¬C‡ˇ∏ÄHÄ!|¶∫°ˇ‘O‡ |¶æ·ˇ‹êî!ˇê;·8êA;√;§;Ö;f;G"˙;:;»A˘h8~8ù|¸ 8ß}¬8»8‡ÄBˇ‘Kˇ˛¡ÄA8~8ù}<¬8©}[ 8 8‡ÄBˇ‘Kˇ˛!ÄA8~8ù}x‡8´}õ 8Ã8‡ÄBˇ‘Kˇ˝˘ÄA8~8ù|π‡|€¬8‡ÄBˇ‘Kˇ˝—ÄA8~8ù|˘‡8ß}ÿ8»8‡ÄBˇ‘Kˇ˝±ÄA8~8ù}8‡8©}Yÿ8 8‡ÄBˇ‘Kˇ˝âÄA8~8ù}|¬8´}ôÿ8Ã8‡ÄBˇ‘Kˇ˝aÄA8~8ù|º |ÿÿ8‡ÄBˇ‘Kˇ˝9ÄA/ó@¸W<1~˜BC‡}9¿U*<1j~˜Z39ˇˇ3C‡˛òÄ@Ä!|¶∫·ˇ‹O‡ |¶æ!ˇƒêî!ˇh;·8êA;√;§;Ö;f;G;(~∫—÷~ô…÷~¨p|y©÷|É`~$¢µ    |¶p˘}©÷}(0~I¢;:˘,í@‰Ù8~8ù}\¬8™}{∫8À8‡ÄBˇ‘Kˇ˝ÄA8~8ù}ò‡8¨|€∫8‡ÄBˇ‘Kˇ¸9ÄA8~8ù|¯‡8ß}ÿ8»8‡ÄBˇ‘Kˇ¸ÄA8~8ù}<¬8©}Wÿ8 8‡ÄBˇ‘Kˇ˚ÌÄA/@¯W <1ã~l°÷~RöC‡0W<0É|§°÷0◊ˇˇT«<}©÷~h(V©<}SJ~RR2˜ˇˇ~1ö3C‡ˇ :◊~ãp}ö°÷|lX~#™;:‡ó∞A˝‰8~8ù|º¬|€∫8‡ÄBˇ‘Kˇ˚≈ÄA8~8ù|¯‡8ß}∫8»8‡ÄBˇ‘Kˇ˚-ÄA8~8ù}8‡8©}Wÿ8 8‡ÄBˇ‘Kˇ˚ÄA8~8ù}|¬8´}óÿ8Ã8‡ÄBˇ‘Kˇ˙›ÄA,ë@‰V„<0É|§©÷~1*C‡(VÊ<0Ê}©÷18ˇˇU*<}j°÷}ã@~1b3ˇˇ2˜C‡ˇÄhÄ!|¶∫!ˇƒO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Äbˇ¸ÄBˇ–HÄA;√ ûÄbê~ ÄǡìƒÄÄ!|¶ª¡ˇ¯O‡ ø°ˇÙî!ˇ∏;·8;√;§ ù û®æ∞Ω ù û®fi∞› ù û®˛∞˝ ù û©± ù û©>±=Å]ˇ¸Åbˇ¸ÅäˇÙlX ùÄ~ˇ¸Äǡ¸Ä£ˇÙe  û®fi∞›Ä˝ˇ¸Åˇ¸Å'ˇÙi@ ùÅ^ˇ¸Åbˇ¸ÅäˇÙlX û®~∞}Ä!ª°ˇÙO‡ |¶æ¡ˇÿêî!ˇê;·8êA;√;Ñ;•:¿Äǡ¯Ä§ˇÄ›ˇÙf( û®˛©gB û©>©\IR û´> û´Ç‹©|/ @˙ û™˛C‡™¸ ñ©ñ õ`@¸, ñ|{ ®ñ|ÑA ñ®∂"(@¯ ñ|⁄¬®ˆ
  9. á0A˝ÙŎ¸Å"ˇ¸ÅHˇÙjH û©~,ã@ʉ©ú
  10. / @˙L ûà~
  11. /ÉA˛8v8Ä8ª8⁄Kˇ¯
  12. 8v8ó8ª8⁄8˘99 Kˇ¯QC‡å®ú
  13. ,Ñ@Ê8v8Ä8ª8⁄Kˇ˜…C‡h®º
  14. /@˙ 8v ñ®ñ(8ª8⁄Kˇ˜°C‡@8v ñ®ñ(8ª8⁄Kˇ˜Ö8v ñ®ñ(8ª8⁄8˘99 Kˇ˜≈C‡ÙÄfiˇ¸Ä‚ˇ¸ÅˇÙh8 û©>/â@˛‰©\
  15. ,ä@ÊL ûâ~
  16. / A˙8v8Ä8ª|⁄¬Kˇ˜
  17. 8v8ó8ª8⁄8˘99 ˇˇKˇ˜QC‡å©ú
  18. /å@˛8v8Ä8ª|⁄¬Kˇˆ…C‡h®|
  19. ,É@Ê 8v ñ®ñ(8ª|⁄¬Kˇˆ°C‡@8v ñ®ñ(8ª|⁄¬KˇˆÖ8v ñ®ñ(8ª8⁄8˘99 ˇˇKˇˆ≈C‡ÙÄûˇ¸Ä¢ˇ¸ÄƒˇÙf( û®˛/@˙ÿ9p©
  20. /à@˛D ûâ>
  21. ,âAÊ8v8Ä|ª 0⁄ˇ¸Kˇˆ    8v8ó|ª |⁄ 8˘Kˇ˜qC‡Ñ©\
  22. /
  23. @˙8v8Ä|ª 0⁄ˇ¸KˇıÕC‡`©|
  24. /ã@˛ 8v ñ®ñ(|ª 0⁄ˇ¸Kˇı•C‡88v ñ®ñ(|ª 0⁄ˇ¸Kˇıâ8v ñ®ñ(|ª |⁄ 8˘KˇˆÌC‡Åûˇ¸Äbˇ¸ÄåˇÙd û®æ,Ö@ʇ9pp®‹
  25. /@˙H ûà˛
  26. /áA˛8v8Ä|ª 0⁄ˇ¸Kˇı8v8ó|ª |⁄¬8˘9Kˇ¯-C‡à©
  27. ,à@Ê8v8Ä|ª 0⁄ˇ¸KˇÙ—C‡d©<
  28. /    @˙ 8v ñ®ñ(|ª 0⁄ˇ¸KˇÙ©C‡<8v ñ®ñ(|ª 0⁄ˇ¸KˇÙç8v ñ®ñ(|ª |⁄¬8˘9Kˇ˜•Ä@Ä!|¶∫¡ˇÿO‡ øˇ‡î!ˇ†;·8;√;§;ÖÅ^ˇ¸Åbˇ¸ÅäˇÙlX û®~/ÉA˝º û´> û´Äûˇ¸Ä¢ˇ¸ÄƒˇÙf( û®˛,á@Ê û©H¬–C‡ û´^ û©>    ËA˘T û©^}j ùX@¸@}ö‡|l…÷ û®û|§Ë|≈¡÷|Ê|ËΔp}    :x}HHW+:|äX@‰ 8`C‡8`C‡tC‡l û©û}Ép û®ûc"0ªˇ¸ËA˘@0€ù0A˝4 û®˛1ˇ¸|à‡A  û©>1IPA˘ 8`C‡8`C‡‡Ä!ªˇ‡O‡ øÅˇî!ˇ∏;·8;√;Ñ;•ÅbˇÅãˇÿÄ}ˇÙÉ`@˛  ûÄǡħˇÿÄ›ˇÙf(®¸∞˛Ä!ªÅˇO‡ |¶øAˇËêî!ˇ®;·8êA;√;Ñ;•;F;g8|8ù8øÄBˇÿHÄA8|8ùŎ¸Å"ˇ¸ÅHˇÙjH û8æÄBˇÿKˇÚ]ÄA8|8ùÅ~ˇ¸Åǡ¸Ä´ˇÙe` û8æÄBˇÿKˇÚ1ÄAÄ(Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇ®;·8êA;√;§;e;Ü;';H8{8ú8Ω8fiÄBˇHÄA8{8ú8†ÄBˇÿHÄA8{8úÄfiˇ¸Ä‚ˇ¸ÅˇÙh8 û®æÄBˇÿKˇÒçÄA8{8úÅ>ˇ¸ÅBˇ¸ÅiˇÙkP û®æÄBˇÿKˇÒaÄAÄ(Ä!|¶ª!ˇ‰O‡ |¶øAˇËêî!ˇ®;·8êA;√;§;ÖÅûˇ¸Äbˇ¸ÄåˇÙd û®æ,Ö@Ê\ û®fiT«:gÍ û©U    :I‚8{8ö û©^UK:|´⁄ û©ûUÜ:|Δ“ÄBˇ‹HÄAC‡\IJˇ¸Åˇ¸Å'ˇÙi@ û©^/
  29. @˙\ û©~Ul:lÍ û®~Td:D‚8{ û®æT¶:|Ü“ û®˛TË:|®⁄8⁄ÄBˇ‹KˇâÄAC‡‰Å>ˇ¸ÅBˇ¸ÅiˇÙkP û©û/å@˛` û®~Td< û®æ|ƒ*T«<|gÍ û©U    < û©^}iRUl<|å‚ û®æT•<ÄBˇ‹HÄAC‡h û®fiT«< û©}'BU*<|jÍ û©~Ul< û®û|¨"T¶<|Ü‚ û®˛TÂ< û©U<ÄBˇ‹HÄAÄ(Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇò;·8êA;@; ÄBˇ¯HÄA;#,ôAÊ∏ ôÅ90/    A˙®8yÄBˇ¯HÄA ô´Ÿ, ô´ô. ôÉπ0 ù´Ω ôÉy0 õ´{Äbˇ¸ÄBˇ–Kˇ˙-ÄA;C öÅBˇ‡âjt}lt±ö ö|~Ë|dΔp|Öx|ƒ(∞⁄ ö|¸ÿ|ËΔp}    :x}HH±Z öÅbˇ©ã±öûËA˝D ö≥⁄|úÿA ö8`∞z ö≥öC‡ ö8Ä∞ö ö≥zC‡@ ö≥∫‡@¯ ö8†∞∫ ö≥zC‡ ö8¿∞⁄ ö≥ö ö ô®˘$©}'@±: ö ô©Y&©z}äX±ö öÄbêz ôÄy8öÄBˇHÄA8yÄBˇ¯HÄA8y8öÄBˇ¯HÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶øAˇËêî!ˇ†;·8êA;`;@ÄBˇ¯KˇÓÌÄA;C/öA˛8 öÄö0,ÑAÊ(8zÄBˇ¯KˇÓ¡ÄA ö´⁄, ö´∫. öÄ∫0 Ö®≈|˛0|ËΔp}    :xàH/@˘‡Äbˇ¸ÄBˇ–KˇÓÅÄA;c õ}\ ö©z$}ãP±õ õ||Ë ö®ö&|§∞ª õWÜ<0Ê∞˚ õ õ©± õ9 ±; õÅBˇ‡âjt}lt±õ õÄbˇ®É∞õ õÄ¢êª öÄz8õÄBˇKˇÌQÄA8zÄBˇ¯KˇÌAÄA8z8õÄBˇ¯KˇÌ-ÄAÄ0Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇò;·8êA;@; ÄBˇ¯KˇÏÌÄA;#/ôA˛Ä ôÄŸ0,ÜAÊp ôĢ0 áÅ/A˙X8yÄBˇ¯KˇÏ¡ÄA ô´Ÿ, ô´π. ôÅ90 â©I}~P}lΔp}ÉZxå ôÄô0 Ñħ Ö®≈|˝0|ËΔp}    :xhH/ú@˝Ë,õ@‡Äbˇ¸ÄBˇ–KˇÏyÄA;C ö}\ ô©y$}ãP±ö ö|{Ë ô®ô&|§∞∫ öWÜ<0Ê∞˙ öWh<1(±: ö9@±Z öÅbˇ‡âãt}Ét∞z öÄǡ®§∞∫ öĬê⁄ ôÄy8öÄBˇKˇÎ—ÄA8yÄBˇ¯KˇÎ¡ÄA8y8öÄBˇ¯KˇÎ≠ÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄ‚ˇÄgˇËÄBˇ–KˇÍ±ÄAêbÅ à9ǡ»},<™}(=™Äb ÉÄ‚ˇƒê„Å à= 9IëH êH$Åb ã=Ä8lêk(êK,ÄÇ Ñ<†8≈êƒ0êD4Ä‚ á=9(ë'@êGDÅB ä=`9ãëä8êJ<Äb É<Ä8§ê£HêCLĬ Ü<‡9ëPêFTÅ" â=@9jëiXêI\ÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇ‰CurveDesc äxáàãåèêìîóòûü£§™´Ø∞√ƒ»ÃŒ‘ÿ‹·ÂÌÓı!-.5T[amnvìö†™´¥“ŸflÙı˘˚
  30.  '*38APTpq{|§•Ø∞Δ«Àœ’Ÿ‰ÂÈÌÚˆ
  31. !&).1JRTVXZ\chntz~ÅÑáäéëîóôöü†•® “‘÷ÿÂÁÎÌÒıˆ˘¸*.08:<>DFHWY]_cgknswzõ†§™∞∂º¬»Œã¯8mark‚{col
  32. ·{f„{x‰{y¯‡¿8line‚{colÁ{d
  33. ·{fÊ{hÍ{uÂ{w„{xË{x1‰{yÈ{y1¯Œ88circle‚{col
  34. ·{fÂ{rË{uÊ{x„{x0Á{y‰{y0¯Ï‡8ellipseÂ{aÍ{aaÊ{bÎ{bb‚{colÏ{d
  35. ·{fÌ{gÓ{hÁ{x„{x0Ë{y‰{y0È{y1¯Ç8New
  36. ·{c¯∂8Copy
  37. ‚{dst
  38. ·{src¯Î88DrawË{col
  39. È{fÁ{h
  40. ·{objÊ{w‰{xÂ{y¯≈(8SelectableÁ{h
  41. ·{objÊ{w‚{x‰{xm„{yÂ{y0¯⁄8Handle
  42. ·{obj¯Ü 8Readlen
  43. ·{obj¯∫ 8Write‚{cno
  44. ·{obj¯º 8Print
  45. ·{obj‚{x‰{x0„{yÂ{y0¯º    08MakeLine
  46. Ê{G
  47. Â{c·{x0‚{x1„{y0‰{y1¯ú
  48. (8MakeCircle
  49. Â{G
  50. ‰{c„{r·{x0‚{y0¯é 08MakeEllipse
  51. Ê{G„{a‰{b
  52. Â{c·{x0‚{y0¯ÿ 8$$
  53. method